home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / program / progem.lzh / gemcl5.c < prev    next >
Text File  |  1986-07-16  |  5KB  |  135 lines
  1. >>>>>>>>>>>>>>>>>>>>>>>>>>> Sample object trees <<<<<<<<<<<<<<<<<<<<<<<<
  2.  
  3. OBJECT rs_object[] = {
  4. -1, 1, 3, G_BOX, NONE, OUTLINED, 0x21100L, 0,0, 18,12,    /* Tree # 1 */
  5. 2, -1, -1, G_STRING, NONE, NORMAL, 0x0L, 3,1, 12,1,    
  6. 3, -1, -1, G_BUTTON, 0x7, NORMAL, 0x1L, 5,9, 8,1,    
  7. 0, 4, 4, G_BOX, NONE, NORMAL, 0xFF1172L, 3,3, 12,5,
  8. 3, -1, -1, G_IMAGE, LASTOB, NORMAL, 0x0L, 3,1, 6,3,    
  9. -1, 1, 6, G_BOX, NONE, OUTLINED, 0x21100L, 0,0, 23,12,  /* Tree # 2 */
  10. 2, -1, -1, G_TEXT, NONE, NORMAL, 0x0L, 0,1, 23,1,    
  11. 6, 3, 5, G_IBOX, NONE, NORMAL, 0x1100L, 6,3, 11,5,
  12. 4, -1, -1, G_BUTTON, 0x11, NORMAL, 0x5L, 0,0, 11,1,    
  13. 5, -1, -1, G_BUTTON, 0x11, NORMAL, 0x6L, 0,2, 11,1,    
  14. 2, -1, -1, G_BOXCHAR, 0x11, NORMAL, 0x43FF1400L, 0,4, 11,1,
  15. 0, -1, -1, G_BOXTEXT, 0x27, NORMAL, 0x1L, 5,9, 13,1,    
  16. -1, 1, 3, G_BOX, NONE, OUTLINED, 0x21100L, 0,0, 32,11,  /* Tree # 3 */
  17. 2, -1, -1, G_ICON, NONE, NORMAL, 0x0L, 4,1, 6,4,    
  18. 3, -1, -1, G_FTEXT, EDITABLE, NORMAL, 0x2L, 12,2, 14,1,    
  19. 0, 4, 4, G_FBOXTEXT, 0xE, NORMAL, 0x3L, 3,5, 25,4,    
  20. 3, -1, -1, G_ICON, LASTOB, NORMAL, 0x1L, 1,0, 6,4};    
  21.  
  22. >>>>>>>>>>>>>>>>>>>>>>>>>> Object tree walk utility <<<<<<<<<<<<<<<<<<<<<<
  23.  
  24.         VOID
  25. map_tree(tree, this, last, routine)
  26.         LONG            tree;
  27.         WORD            this, last;
  28.         WORD            (*routine)();
  29.         {
  30.         WORD            tmp1;
  31.  
  32.         tmp1 = this;            /* Initialize to impossible value: */
  33.                                 /* TAIL won't point to self!       */
  34.                                 /* Look until final node, or off   */
  35.                                 /* the end of tree                 */ 
  36.         while (this != last && this != NIL)
  37.                                 /* Did we 'pop' into this node     */
  38.                                 /* for the second time?            */
  39.                 if (LWGET(OB_TAIL(this)) != tmp1)
  40.                         {
  41.                         tmp1 = this;    /* This is a new node       */
  42.                         this = NIL;
  43.                                         /* Apply operation, testing  */
  44.                                         /* for rejection of sub-tree */
  45.                         if ((*routine)(tree, tmp1))
  46.                                 this = LWGET(OB_HEAD(tmp1));
  47.                                         /* Subtree path not taken,   */
  48.                                         /* so traverse right         */ 
  49.                         if (this == NIL)
  50.                                 this = LWGET(OB_NEXT(tmp1));
  51.                         }
  52.                 else                    /* Revisiting parent:        */
  53.                                         /* No operation, move right  */
  54.                         {
  55.                         tmp1 = this;
  56.                         this = LWGET(OB_NEXT(tmp1));
  57.                         }
  58.         }
  59.  
  60. >>>>>>>>>>>>>>>>>> Sample routine to use with map_tree() <<<<<<<<<<<<<<<
  61.  
  62.     VOID
  63. undo_obj(tree, which, bit)    /* clear specified bit in object state    */
  64.     LONG    tree;
  65.     WORD    which, bit;
  66.     {
  67.     WORD    state;
  68.  
  69.     state = LWGET(OB_STATE(which));
  70.     LWSET(OB_STATE(which), state & ~bit);
  71.     }
  72.  
  73.     VOID
  74. desel_obj(tree, which)        /* turn off selected bit of spcfd object*/
  75.     LONG    tree;
  76.     WORD    which;
  77.     {
  78.     undo_obj(tree, which, SELECTED);
  79.     return (TRUE);
  80.     }
  81.  
  82. >>>>>>>>>>>>>>>>>>>>>>>>>> Sample .ICN Files <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  83. >>>>>>>>>> Save everything between >>><<< lines as CLOCK.ICN <<<<<<<<<<<<<<
  84. /* GEM Icon Definition: */
  85. #define ICON_W 0x0030
  86. #define ICON_H 0x0018
  87. #define DATASIZE 0x0048
  88. UWORD clock[DATASIZE] =
  89. { 0x0000, 0x0000, 0x0000, 0x0000, 
  90.   0x3FFC, 0x0000, 0x000F, 0xC003, 
  91.   0xF000, 0x0078, 0x0180, 0x1E00, 
  92.   0x0180, 0x0180, 0x0180, 0x0603, 
  93.   0x0180, 0xC060, 0x1C00, 0x0006, 
  94.   0x0038, 0x3000, 0x018C, 0x000C, 
  95.   0x60C0, 0x0198, 0x0306, 0x6000, 
  96.   0x01B0, 0x0006, 0x4000, 0x01E0, 
  97.   0x0002, 0xC000, 0x01C0, 0x0003, 
  98.   0xCFC0, 0x0180, 0x03F3, 0xC000, 
  99.   0x0000, 0x0003, 0x4000, 0x0000, 
  100.   0x0002, 0x6000, 0x0000, 0x0006, 
  101.   0x60C0, 0x0000, 0x0306, 0x3000, 
  102.   0x0000, 0x000C, 0x1C00, 0x0000, 
  103.   0x0038, 0x0603, 0x0180, 0xC060, 
  104.   0x0180, 0x0180, 0x0180, 0x0078, 
  105.   0x0180, 0x1E00, 0x000F, 0xC003, 
  106.   0xF000, 0x0000, 0x3FFC, 0x0000
  107. };
  108. >>>>>>>>>>>>>>>>>>>>>>>>>>>>>> End of CLOCK.ICN <<<<<<<<<<<<<<<<<<<<<<<<<<
  109. >>>>>>>>> Save everything between >>>><<<<< lines as CLOCKM.ICN <<<<<<<<<<
  110. /* GEM Icon Definition: */
  111. #define ICON_W 0x0030
  112. #define ICON_H 0x0018
  113. #define DATASIZE 0x0048
  114. UWORD clockm[DATASIZE] =
  115. { 0x0000, 0x0000, 0x0000, 0x0000, 
  116.   0x7FFE, 0x0000, 0x001F, 0xFFFF, 
  117.   0xFC00, 0x00FF, 0xFFFF, 0xFF00, 
  118.   0x03FF, 0xFFFF, 0xFFC0, 0x0FFF, 
  119.   0xFFFF, 0xFFF0, 0x3FFF, 0xFFFF, 
  120.   0xFFFC, 0x7FFF, 0xFFFF, 0xFFFE, 
  121.   0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 
  122.   0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 
  123.   0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 
  124.   0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 
  125.   0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 
  126.   0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 
  127.   0xFFFF, 0xFFFF, 0xFFFF, 0x7FFF, 
  128.   0xFFFF, 0xFFFE, 0x3FFF, 0xFFFF, 
  129.   0xFFFC, 0x0FFF, 0xFFFF, 0xFFF0, 
  130.   0x03FF, 0xFFFF, 0xFFC0, 0x00FF, 
  131.   0xFFFF, 0xFF00, 0x001F, 0xFFFF, 
  132.   0xF800, 0x0000, 0x7FFE, 0x0000
  133. };
  134. >>>>>>>>>>>>>>>>>>>>>>>>> End of CLOCKM.ICN <<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  135.